Digital Competence Insights
  • Dimensions
    • Strategic Information
    • Critical Information
    • Netiquette
    • Digital Content Creation
    • Safety
    • Digital Health
    • Green Digital
    • Digital Problem Solving
    • Transactional
    • AI
    • Gen AI
  • Skills
  • Performance
  • Knowledge
  • Highlights
  • About

Critical Information

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Critical Information Skills measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell).

Critical Information Skills

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3

Critical Information Knowledge

Critical Information Skills measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell).

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Question 1

Critical Information Performance

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
Back to top
Source Code
---
title: "{{< iconify ph detective-fill >}} Critical Information"
format: html
---

```{r}
#| include: false
library(dashboardr)
```

**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**

**Critical Information Skills** measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell).

```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'

# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)

# Global chunk options
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  error = FALSE,
  fig.width = 12,
  fig.height = 8,
  dpi = 300
)

# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')

# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')

# Create filtered datasets
# Each filter is applied once and reused across visualizations

data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)

```

## {{< iconify ph lightning-fill >}} Critical Information Skills


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r cis-wave1-overall-2}
# Critical Information Skills
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(SInfo5, SInfo6, SInfo7),
  title = "Critical Information Skills",
  questions = c("SInfo5", "SInfo6", "SInfo7"),
  question_labels = c("I know how I can check if the information I find on the internet is true.", "I know how I can check if a website is reliable.", "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell)."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-wave1-age-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo5),
  title = "I know how I can check if the information I find on the internet is true.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-wave1-age-item2-2}
# I know how I can check if a website is reliable.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo6),
  title = "I know how I can check if a website is reliable.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-wave1-age-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo7),
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo7"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-wave1-gender-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo5),
  title = "I know how I can check if the information I find on the internet is true.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-wave1-gender-item2-2}
# I know how I can check if a website is reliable.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo6),
  title = "I know how I can check if a website is reliable.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-wave1-gender-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo7),
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo7"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-wave1-edu-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo5),
  title = "I know how I can check if the information I find on the internet is true.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-wave1-edu-item2-2}
# I know how I can check if a website is reliable.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo6),
  title = "I know how I can check if a website is reliable.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-wave1-edu-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo7),
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo7"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r cis-wave2-overall-2}
# Critical Information Skills
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(SInfo5, SInfo6, SInfo7),
  title = "Critical Information Skills",
  questions = c("SInfo5", "SInfo6", "SInfo7"),
  question_labels = c("I know how I can check if the information I find on the internet is true.", "I know how I can check if a website is reliable.", "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell)."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-wave2-age-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo5),
  title = "I know how I can check if the information I find on the internet is true.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-wave2-age-item2-2}
# I know how I can check if a website is reliable.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo6),
  title = "I know how I can check if a website is reliable.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-wave2-age-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo7),
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo7"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-wave2-gender-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo5),
  title = "I know how I can check if the information I find on the internet is true.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-wave2-gender-item2-2}
# I know how I can check if a website is reliable.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo6),
  title = "I know how I can check if a website is reliable.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-wave2-gender-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo7),
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo7"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-wave2-edu-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo5),
  title = "I know how I can check if the information I find on the internet is true.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-wave2-edu-item2-2}
# I know how I can check if a website is reliable.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo6),
  title = "I know how I can check if a website is reliable.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-wave2-edu-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo7),
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo7"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-overtime-overall-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_timeline(
  data = data,
  title = "I know how I can check if the information I find on the internet is true.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SInfo5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-overtime-overall-item2-2}
# I know how I can check if a website is reliable.
result <- create_timeline(
  data = data,
  title = "I know how I can check if a website is reliable.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SInfo6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-overtime-overall-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_timeline(
  data = data,
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SInfo7"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-overtime-age-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_timeline(
  data = data,
  title = "I know how I can check if the information I find on the internet is true.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-overtime-age-item2-2}
# I know how I can check if a website is reliable.
result <- create_timeline(
  data = data,
  title = "I know how I can check if a website is reliable.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-overtime-age-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_timeline(
  data = data,
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo7",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-overtime-gender-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_timeline(
  data = data,
  title = "I know how I can check if the information I find on the internet is true.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-overtime-gender-item2-2}
# I know how I can check if a website is reliable.
result <- create_timeline(
  data = data,
  title = "I know how I can check if a website is reliable.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-overtime-gender-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_timeline(
  data = data,
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo7",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r cis-overtime-edu-item1-2}
# I know how I can check if the information I find on the internet is true.
result <- create_timeline(
  data = data,
  title = "I know how I can check if the information I find on the internet is true.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r cis-overtime-edu-item2-2}
# I know how I can check if a website is reliable.
result <- create_timeline(
  data = data,
  title = "I know how I can check if a website is reliable.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r cis-overtime-edu-item3-2}
# I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).
result <- create_timeline(
  data = data,
  title = "I can assess what the goal of online information is (e.g., to inform, influence, entertain or sell).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo7",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph book-open-fill >}} Critical Information Knowledge


**Critical Information Skills** measure the ability to evaluate online information: checking whether information is true, assessing website reliability, and understanding the purpose of online content (to inform, influence, entertain, or sell).

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")
```


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r critinfo-wave1-overall-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  questions = "KInfo3RC",
  question_labels = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-wave1-age-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KInfo3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-wave1-gender-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KInfo3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-wave1-edu-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KInfo3RC"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r critinfo-wave2-overall-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  questions = "KInfo3RC",
  question_labels = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-wave2-age-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KInfo3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-wave2-gender-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KInfo3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-wave2-edu-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KInfo3RC),
  title = "Some people make money by spreading fake news on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KInfo3RC"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-overtime-overall-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_timeline(
  data = data,
  title = "Some people make money by spreading fake news on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KInfo3RC"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-overtime-age-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_timeline(
  data = data,
  title = "Some people make money by spreading fake news on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo3RC",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-overtime-gender-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_timeline(
  data = data,
  title = "Some people make money by spreading fake news on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo3RC",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r critinfo-overtime-edu-item1-2}
# Some people make money by spreading fake news on the internet.
result <- create_timeline(
  data = data,
  title = "Some people make money by spreading fake news on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo3RC",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph clipboard-text >}} Critical Information Performance


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-cis-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PCIS1R, PCIS2R, PCIS3R),
  title = "",
  questions = c("PCIS1R", "PCIS2R", "PCIS3R"),
  question_labels = c("Classify a social media post (task 1)", "Classify a social media post (task 2)", "What to check for fake news"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-wave1-age-item1-2}
# Classify a social media post (task 1)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PCIS1R),
  title = "Classify a social media post (task 1)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-wave1-age-item2-2}
# Classify a social media post (task 2)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PCIS2R),
  title = "Classify a social media post (task 2)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-wave1-age-item3-2}
# What to check for fake news
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PCIS3R),
  title = "What to check for fake news",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PCIS3R"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-wave1-gender-item1-2}
# Classify a social media post (task 1)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PCIS1R),
  title = "Classify a social media post (task 1)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-wave1-gender-item2-2}
# Classify a social media post (task 2)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PCIS2R),
  title = "Classify a social media post (task 2)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-wave1-gender-item3-2}
# What to check for fake news
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PCIS3R),
  title = "What to check for fake news",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PCIS3R"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-wave1-edu-item1-2}
# Classify a social media post (task 1)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PCIS1R),
  title = "Classify a social media post (task 1)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-wave1-edu-item2-2}
# Classify a social media post (task 2)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PCIS2R),
  title = "Classify a social media post (task 2)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-wave1-edu-item3-2}
# What to check for fake news
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PCIS3R),
  title = "What to check for fake news",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PCIS3R"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-cis-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PCIS1R, PCIS2R, PCIS3R),
  title = "",
  questions = c("PCIS1R", "PCIS2R", "PCIS3R"),
  question_labels = c("Classify a social media post (task 1)", "Classify a social media post (task 2)", "What to check for fake news"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-wave2-age-item1-2}
# Classify a social media post (task 1)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PCIS1R),
  title = "Classify a social media post (task 1)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-wave2-age-item2-2}
# Classify a social media post (task 2)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PCIS2R),
  title = "Classify a social media post (task 2)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-wave2-age-item3-2}
# What to check for fake news
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PCIS3R),
  title = "What to check for fake news",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PCIS3R"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-wave2-gender-item1-2}
# Classify a social media post (task 1)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PCIS1R),
  title = "Classify a social media post (task 1)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-wave2-gender-item2-2}
# Classify a social media post (task 2)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PCIS2R),
  title = "Classify a social media post (task 2)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-wave2-gender-item3-2}
# What to check for fake news
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PCIS3R),
  title = "What to check for fake news",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PCIS3R"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-wave2-edu-item1-2}
# Classify a social media post (task 1)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PCIS1R),
  title = "Classify a social media post (task 1)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-wave2-edu-item2-2}
# Classify a social media post (task 2)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PCIS2R),
  title = "Classify a social media post (task 2)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-wave2-edu-item3-2}
# What to check for fake news
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PCIS3R),
  title = "What to check for fake news",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PCIS3R"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-overtime-overall-item1-2}
# Classify a social media post (task 1)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 1)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PCIS1R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-overtime-overall-item2-2}
# Classify a social media post (task 2)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 2)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PCIS2R"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-overtime-overall-item3-2}
# What to check for fake news
result <- create_timeline(
  data = data,
  title = "What to check for fake news",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PCIS3R"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-overtime-age-item1-2}
# Classify a social media post (task 1)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 1)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS1R",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-overtime-age-item2-2}
# Classify a social media post (task 2)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 2)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS2R",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-overtime-age-item3-2}
# What to check for fake news
result <- create_timeline(
  data = data,
  title = "What to check for fake news",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS3R",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-overtime-gender-item1-2}
# Classify a social media post (task 1)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 1)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS1R",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-overtime-gender-item2-2}
# Classify a social media post (task 2)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 2)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS2R",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-overtime-gender-item3-2}
# What to check for fake news
result <- create_timeline(
  data = data,
  title = "What to check for fake news",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS3R",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-cis-overtime-edu-item1-2}
# Classify a social media post (task 1)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 1)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS1R",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-cis-overtime-edu-item2-2}
# Classify a social media post (task 2)
result <- create_timeline(
  data = data,
  title = "Classify a social media post (task 2)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS2R",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-cis-overtime-edu-item3-2}
# What to check for fake news
result <- create_timeline(
  data = data,
  title = "What to check for fake news",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PCIS3R",
  group_var = "Education"
)

result
```


:::


:::


:::

© 2025 Digital Competence Insights Dashboard - All Rights Reserved

 

dashboardr Powered by dashboardr